home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / K-3D / k3d-0.4.2.1 / share / lsystem / abop-monopodial-tree2.ls < prev    next >
Encoding:
Text File  |  2004-07-23  |  387 b   |  18 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. #
  3. # Elaboration of example d on page 56
  4. # with double the amount of branches
  5. #
  6. 10
  7. 30
  8. 20
  9. #
  10. c(12)FAL
  11. #
  12. A=F[&'(.7)!BL]>(137)[&'(.6)!BL]>(137)'(.9)!(.9)A
  13. B=F[-'(.7)!(.9)$CL]'(.9)!(.9)C
  14. C=F[+'(.7)!(.9)$BL]'(.9)!(.9)B
  15. #
  16. L=~c(8){+(45)f(10)-(45)f(20)-(45)f(10)+(45)|+(45)f(10)-(45)f(20)-(45)f(10)}
  17. @
  18.